#! /usr/bin/perl
use strict;
use warnings;
use feature 'state';
sub averageC {
        state $avgCach = 0;
        state $count = 0;
        my $cache = `~/Dropbox/perlBog/./test1.pl`;
        $count++;
        my $avgCach = ($avgCach + $cache)/$count;
        print "Cache = $cache\n Avg Cache = $avgCache";
}

my $xxx = &averageC;
print $xxx;
